home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _a_ / abitur / txt / fragen.def < prev    next >
Text File  |  1994-12-23  |  1KB  |  51 lines
  1. DEFINITION MODULE Fragen;
  2.  
  3. FROM FaecherNamen IMPORT FaecherTypen;
  4. FROM SYSTEM IMPORT BITSET;
  5.  
  6. TYPE
  7.    ShortString = ARRAY [0..63] OF CHAR;
  8.  
  9.    FAntwortPtr = POINTER TO FAntwort;
  10.    FAntwort = RECORD
  11.                 Next: FAntwortPtr;
  12.                 IsText: BOOLEAN;
  13.                 Str: ShortString;
  14.                 Mul: BITSET
  15.              END;
  16.  
  17.    FragePtr = POINTER TO Frage;
  18.    Frage = RECORD
  19.               Next: FragePtr;
  20.               Txt: ARRAY [0..10] OF ShortString;
  21.               MultipleAntw: ARRAY [1..6] OF ShortString;
  22.               Auswert: ARRAY[1..6] OF FAntwortPtr;
  23.            END;
  24.  
  25.    SchuelerAntwort = RECORD
  26.                         Mul: BITSET;
  27.                         Str: ShortString
  28.                      END;
  29.  
  30.  
  31. VAR AlleFragen: ARRAY[Turnen..Informatik] OF FragePtr;
  32.     AnzaFragen: ARRAY[Turnen..Informatik] OF INTEGER;
  33.     (* Diese Variablen werden beim Initialisieren eingelesen
  34.      * und zwar von den Files "Fragen/Turnen", "Fragen/Gg", ...
  35.      *)
  36.  
  37. PROCEDURE Bewerte(F: FragePtr; VAR S: SchuelerAntwort): REAL;
  38.  (* Gibt von Frage F und SchuelerAntwort S die Note zurück *)
  39.  (* Note von 1.0 2.0 3.0 .. 6.0 *)
  40.  
  41. PROCEDURE SearchRNDFrage(Fach: FaecherTypen): FragePtr;
  42. (* Sucht in der Liste Allefragen nach dem Fach und eine beliebige Frage.
  43.  * gibt NIL zurück, wenn keine Frage vorhanden ist.
  44.  *)
  45.  
  46.  
  47. END Fragen.def
  48.  
  49.  
  50.  
  51.